PC Answers 2003 September/PC Answers September 2003.iso/Software/trial/AutoMate 5.0.4.1/automate5_eval_setup.exe/TaskEdit.exe/0/RCDATA/TFRMSENDPASTEKEYS/TFRMSENDPASTEKEYS.txt

Text File | 2003-01-14 | 13.2 KB | 526 lines

inherited frmSendPasteKeys: TfrmSendPasteKeys
  Left = 359
  Top = 371
  HelpContext = 89
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnlTop: TPanel
    inherited lblCommandName: TLabel
      Caption = ''
    end
    inherited img1616: TImage
      Picture.Data = {<image000.ico>}
    end
    inherited memActionDesc: TMemo
      Lines.Strings = (

          'Sends the keystrokes to the currently focused (front) window.  K' +
          'eystrokes can '

          'either be sent one-by-one using the "send keystrokes" option (us' +
          'e when selecting '

          'buttons or menu items) or can be pasted all at once using the "p' +
          'aste keystrokes" '

          'option (use when typing large amounts of text such as the body o' +
          'f an email '

          'message).  Special keystrokes such as ALT, CTRL, and SHIFT shoul' +
          'd be selected '

          'from the "Special Keystrokes" button and will only work when the' +
          ' "Simulate '
        'keypress" option is selected.')
    end
  end
  inherited pnlCenter: TPanel
    inherited pgcControlPage: TPageControl
      inherited tbsAM5Main: TTabSheet
        object Label1: TLabel
          Left = 10
          Top = 70
          Width = 265
          Height = 13
          AutoSize = False
          Caption = '&Keystrokes:'
          FocusControl = memKeystrokes
        end
        object memKeystrokes: TMemo
          Left = 10
          Top = 86
          Width = 449
          Height = 79
          ScrollBars = ssVertical
          TabOrder = 1
          WantTabs = True
          OnExit = memKeystrokesExit
          OnKeyDown = memKeystrokesKeyDown
          OnKeyPress = memKeystrokesKeyPress
          OnKeyUp = memKeystrokesKeyUp
        end
        object comInsert: TBitBtn
          Left = 10
          Top = 192
          Width = 173
          Height = 23
          Caption = 'Spe&cial Keystrokes'
          PopupMenu = popMenuBar
          TabOrder = 3
          OnClick = comInsertClick
          Glyph.Data = {
            CE000000424DCE0000000000000076000000280000000E0000000B0000000100
            0400000000005800000000000000000000001000000010000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FF00FFFFFFFFFFFFFF00FFFFFF0FFFFFFF00FFFFF000FFFFFF00FFFF00000FFF
            FF00FFF0000000FFFF00FF000000000FFF00F00000000000FF00000000000000
            0F00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00}
          Layout = blGlyphRight
          Spacing = 2
        end
        object GroupBox1: TGroupBox
          Left = 10
          Top = 2
          Width = 449
          Height = 63
          Caption = 'Method'
          TabOrder = 0
          object rdoSend: TRadioButton
            Left = 11
            Top = 16
            Width = 403
            Height = 17
            Caption = '&Simulate keypress'
            TabOrder = 0
            OnClick = rdoSendClick
          end
          object rdoPaste: TRadioButton
            Left = 11
            Top = 36
            Width = 403
            Height = 17
            Caption = '&Paste characters'
            TabOrder = 1
            OnClick = rdoSendClick
          end
        end
        object cbTranspose: TCheckBox
          Left = 10
          Top = 168
          Width = 231
          Height = 17
          Caption = '&Transpose special keystrokes as you type'
          TabOrder = 2
        end
      end
      object TabSheet1: TTabSheet [1]
        Caption = 'Advanced'
        ImageIndex = 2
        object Label2: TLabel
          Left = 241
          Top = 40
          Width = 89
          Height = 13
          AutoSize = False
          Caption = 'ms'
        end
        object Label3: TLabel
          Left = 241
          Top = 89
          Width = 89
          Height = 13
          AutoSize = False
          Caption = 'ms'
        end
        object Label4: TLabel
          Left = 10
          Top = 16
          Width = 203
          Height = 13
          Caption = 'Add a &pause before sending/pasting keys:'
          FocusControl = edtPauseBefore
        end
        object Label5: TLabel
          Left = 10
          Top = 65
          Width = 208
          Height = 13
          Caption = 'Add a &delay between individual keystrokes:'
          FocusControl = edtDelayBetweenKeystrokes
        end
        object edtPauseBefore: TEdit
          Left = 10
          Top = 32
          Width = 224
          Height = 21
          AutoSize = False
          TabOrder = 0
          OnExit = memKeystrokesExit
        end
        object edtDelayBetweenKeystrokes: TEdit
          Left = 10
          Top = 81
          Width = 224
          Height = 21
          AutoSize = False
          TabOrder = 1
          OnExit = memKeystrokesExit
        end
        object cbLockKeyboard: TCheckBox
          Left = 10
          Top = 139
          Width = 433
          Height = 17
          Caption = '&Lock keyboard and mouse'
          TabOrder = 3
        end
        object cbDos: TCheckBox
          Left = 10
          Top = 164
          Width = 269
          Height = 17
          Caption = 'Use &DOS keystrokes'
          TabOrder = 4
        end
        object cbEncrypt: TCheckBox
          Left = 10
          Top = 189
          Width = 269
          Height = 17
          Caption = 'Encr&ypt keystrokes '
          TabOrder = 5
        end
        object cbStayFocused: TCheckBox
          Left = 10
          Top = 114
          Width = 433
          Height = 17
          Caption = 'Keep current foreground window &focused'
          TabOrder = 2
        end
      end
    end
  end
  inherited taclKeyboardTrap: TActionList
    Left = 196
  end
  inherited dxSIBarManager: TdxBarManager
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    PopupMenuLinks = <
      item
        Control = lsvAM5Errors
        PopupMenu = dxCheckPopup
      end>
    Left = 68
    DockControlHeights = (
      0
      0
      0
      0)
  end
  inherited dxCheckPopup: TdxBarPopupMenu
    ItemLinks = <
      item
        Item = itmCheckAllErrors
        UserGlyph.Data = {00000000}
        Visible = True
      end
      item
        Item = itmCheckNoErrors
        UserGlyph.Data = {00000000}
        Visible = True
      end>
    Left = 100
  end
  inherited IvTranslator1: TIvTranslator
    Left = 132
  end
  object popMenuBar: TPopupMenu
    AutoHotkeys = maManual
    Left = 164
    Top = 348
    object itmALTkey: TMenuItem
      Caption = 'ALT'
      OnClick = itmALTkeyClick
    end
    object itmCtrlkey: TMenuItem
      Caption = 'CTRL'
      OnClick = itmALTkeyClick
    end
    object itmShiftKey: TMenuItem
      Caption = 'SHIFT'
      OnClick = itmALTkeyClick
    end
    object ctrlaltdel1: TMenuItem
      Caption = 'ctrl-alt-del'
      OnClick = itmALTkeyClick
    end
    object itmEscape: TMenuItem
      Caption = 'ESC'
      OnClick = itmALTkeyClick
    end
    object AltGr1: TMenuItem
      Caption = 'Alt Gr'
      OnClick = itmALTkeyClick
    end
    object itmPopup: TMenuItem
      Caption = 'Popup Menu'
      OnClick = itmALTkeyClick
    end
    object intWinKey: TMenuItem
      Caption = 'Windows Key'
      OnClick = itmALTkeyClick
    end
    object itmEnter: TMenuItem
      Caption = 'Enter'
      OnClick = itmALTkeyClick
    end
    object itmBackspace: TMenuItem
      Caption = 'Backspace'
      OnClick = itmALTkeyClick
    end
    object itmTab: TMenuItem
      Caption = 'TAB'
      OnClick = itmALTkeyClick
    end
    object itmSpace: TMenuItem
      Caption = 'Space'
      OnClick = itmALTkeyClick
    end
    object itmCapsLock: TMenuItem
      Caption = 'Caps Lock Toggle'
      OnClick = itmALTkeyClick
    end
    object itmCapsLockOn: TMenuItem
      Caption = 'Caps Lock On'
      OnClick = itmALTkeyClick
    end
    object itmCapsLockOff: TMenuItem
      Caption = 'Caps Lock Off'
      OnClick = itmALTkeyClick
    end
    object itmInsert: TMenuItem
      Caption = 'Insert'
      OnClick = itmALTkeyClick
    end
    object itmDelete: TMenuItem
      Caption = 'Delete'
      OnClick = itmALTkeyClick
    end
    object itmHome: TMenuItem
      Caption = 'Home'
      OnClick = itmALTkeyClick
    end
    object itmEnd: TMenuItem
      Caption = 'End'
      OnClick = itmALTkeyClick
    end
    object itmPageUp: TMenuItem
      Caption = 'Page Up'
      OnClick = itmALTkeyClick
    end
    object itmPageDown: TMenuItem
      Caption = 'Page Down'
      OnClick = itmALTkeyClick
    end
    object itmHelp: TMenuItem
      Caption = 'Help'
      OnClick = itmALTkeyClick
    end
    object itmScrollLockOn: TMenuItem
      Caption = 'Scroll Lock On'
      OnClick = itmALTkeyClick
    end
    object itmScrollLockOff: TMenuItem
      Caption = 'Scroll Lock Off'
      OnClick = itmALTkeyClick
    end
    object itmScrollLock: TMenuItem
      Caption = 'Scroll Lock Toggle'
      OnClick = itmALTkeyClick
    end
    object itmPrintScreen: TMenuItem
      Caption = 'Print Screen'
      OnClick = itmALTkeyClick
    end
    object itmBreak: TMenuItem
      Caption = 'Break'
      OnClick = itmALTkeyClick
    end
    object itmNumLockOn: TMenuItem
      Caption = 'Num Lock On'
      OnClick = itmALTkeyClick
    end
    object itmNumLockOff: TMenuItem
      Caption = 'Num Lock Off'
      OnClick = itmALTkeyClick
    end
    object itmNumLock: TMenuItem
      Caption = 'Num Lock Toggle'
      OnClick = itmALTkeyClick
    end
    object Delay1: TMenuItem
      Caption = 'Delay'
      OnClick = itmALTkeyClick
    end
    object subFunctionKeys: TMenuItem
      Caption = 'Function Keys'
      object F11: TMenuItem
        Caption = 'F1'
        OnClick = itmALTkeyClick
      end
      object F21: TMenuItem
        Caption = 'F2'
        OnClick = itmALTkeyClick
      end
      object F31: TMenuItem
        Caption = 'F3'
        OnClick = itmALTkeyClick
      end
      object F41: TMenuItem
        Caption = 'F4'
        OnClick = itmALTkeyClick
      end
      object F51: TMenuItem
        Caption = 'F5'
        OnClick = itmALTkeyClick
      end
      object F61: TMenuItem
        Caption = 'F6'
        OnClick = itmALTkeyClick
      end
      object F71: TMenuItem
        Caption = 'F7'
        OnClick = itmALTkeyClick
      end
      object F81: TMenuItem
        Caption = 'F8'
        OnClick = itmALTkeyClick
      end
      object F91: TMenuItem
        Caption = 'F9'
        OnClick = itmALTkeyClick
      end
      object F101: TMenuItem
        Caption = 'F10'
        OnClick = itmALTkeyClick
      end
      object F111: TMenuItem
        Caption = 'F11'
        OnClick = itmALTkeyClick
      end
      object F121: TMenuItem
        Caption = 'F12'
        OnClick = itmALTkeyClick
      end
    end
    object subArrowKeys: TMenuItem
      Caption = 'Arrow Keys'
      object UpArrow1: TMenuItem
        Caption = 'Up Arrow'
        OnClick = itmALTkeyClick
      end
      object DownArrow1: TMenuItem
        Caption = 'Down Arrow'
        OnClick = itmALTkeyClick
      end
      object LeftArrow1: TMenuItem
        Caption = 'Left Arrow'
        OnClick = itmALTkeyClick
      end
      object RightArrow1: TMenuItem
        Caption = 'Right Arrow'
        OnClick = itmALTkeyClick
      end
    end
    object subQuickPress: TMenuItem
      Caption = 'Quick Press'
      object ALTdepress1: TMenuItem
        Caption = 'Quick ALT'
        OnClick = itmALTkeyClick
      end
      object CTRLdepress1: TMenuItem
        Caption = 'Quick CTRL'
        OnClick = itmALTkeyClick
      end
      object SHIFTdepress1: TMenuItem
        Caption = 'Quick SHIFT'
        OnClick = itmALTkeyClick
      end
    end
    object itmNumPad: TMenuItem
      Caption = 'Number Pad'
      object itm0: TMenuItem
        Caption = '0'
        OnClick = itmALTkeyClick
      end
      object itm1: TMenuItem
        Caption = '1'
        OnClick = itmALTkeyClick
      end
      object itm2: TMenuItem
        Caption = '2'
        OnClick = itmALTkeyClick
      end
      object itm3: TMenuItem
        Caption = '3'
        OnClick = itmALTkeyClick
      end
      object itm4: TMenuItem
        Caption = '4'
        OnClick = itmALTkeyClick
      end
      object itm5: TMenuItem
        Caption = '5'
        OnClick = itmALTkeyClick
      end
      object itm6: TMenuItem
        Caption = '6'
        OnClick = itmALTkeyClick
      end
      object itm7: TMenuItem
        Caption = '7'
        OnClick = itmALTkeyClick
      end
      object itm8: TMenuItem
        Caption = '8'
        OnClick = itmALTkeyClick
      end
      object itm9: TMenuItem
        Caption = '9'
        OnClick = itmALTkeyClick
      end
      object itmDivide: TMenuItem
        Caption = 'Divide'
        OnClick = itmALTkeyClick
      end
      object itmMultiply: TMenuItem
        Caption = 'Multiply'
        OnClick = itmALTkeyClick
      end
      object itmSubtract: TMenuItem
        Caption = 'Subtract'
        OnClick = itmALTkeyClick
      end
      object itmAdd: TMenuItem
        Caption = 'Add'
        OnClick = itmALTkeyClick
      end
      object itmDecimal: TMenuItem
        Caption = 'Decimal'
        OnClick = itmALTkeyClick
      end
      object itmSeperator: TMenuItem
        Caption = 'Separator'
        OnClick = itmALTkeyClick
      end
    end
  end
end